﻿Public Class frmAddTunnel
    Public TunnelName As String
    Public Result As MsgBoxResult
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click
        TunnelName = TextBox1.Text
        Result = MsgBoxResult.Ok
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles btnCancel.Click
        Result = MsgBoxResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmAddTunnel_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If TunnelName = "" Then
            ' new
        Else
            ' edit
        End If
    End Sub
End Class